home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / SoundAndMusic / cmix / lib / hcomb.c < prev    next >
C/C++ Source or Header  |  1989-02-25  |  384b  |  22 lines
  1. #include <math.h>
  2. float hcomb(xin,rvt,a)
  3. float xin,rvt,*a;
  4. {
  5.     float temp,hc;
  6.     int l;
  7.     if (rvt != a[2]) {
  8.         if (rvt) a[3] = pow(.001,(a[1]/rvt));
  9.         else  a[3] = 0.;
  10.         a[2] = rvt;
  11.     }
  12.     if (a[4] >= a[0]) a[4] = 10.;
  13.     else  a[4]++;
  14.     l = a[4];
  15.     hc = a[l];
  16.     temp = a[3] * a[l];
  17.     a[7] = a[8] * temp + a[6] - a[8] * a[7];
  18.     a[l] = xin + a[7];                 
  19.     a[6] = temp; 
  20.     return(hc);    
  21. }
  22.